home *** CD-ROM | disk | FTP | other *** search
- Program Example12;
- uses Crt;
-
- { Program to demonstrate the TextColor function. }
-
- begin
- WriteLn('This is written in the default color');
- TextColor(Red);
- WriteLn('This is written in Red');
- TextColor(White);
- WriteLn('This is written in White');
- TextColor(LightBlue);
- WriteLn('This is written in Light Blue');
- end.
-